home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / SOFT.ADS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  25 lines
  1. 10  REM  SOFT.ADS
  2. 20  TEXT : HOME : SPEED= 255
  3. 30  VTAB 3: HTAB 14: INVERSE : PRINT "          ": HTAB 14: PRINT " SOFT ADS ": HTAB 14: PRINT "          ": NORMAL 
  4. 50  PRINT : PRINT : HTAB 8: PRINT "1 = SHOW ME THE ADS"
  5. 70  PRINT : PRINT : HTAB 8: PRINT "2 = HOW TO SUBMIT A SOFT AD"
  6. 80  PRINT : PRINT : HTAB 8: PRINT "3 = BACK TO MAIN MENU"
  7. 90  PRINT : PRINT " WHICH ";: GET R$: PRINT R$
  8. 110  IF R$ = "1" GOTO 2000
  9. 120  IF R$ = "2" GOTO 3000
  10. 140  IF R$ = "3"  THEN  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  11. 150  GOTO 20
  12. 2000  PRINT  CHR$(4)"RUN AD.MENU"
  13. 3000  HOME : VTAB 2
  14. 3005  HTAB 10: PRINT "HOW TO SUBMIT AN AD"
  15. 3010  PRINT : PRINT "   AD SPACE IS SOLD BY THE SECTOR."
  16. 3020  PRINT : PRINT "RATES ARE PROPORTIONAL TO CIRCULATION."
  17. 3040  PRINT : PRINT : PRINT "CURRENT CIRCULATION IS 2500."
  18. 3045  PRINT : PRINT "RATES: $6.25/SECTOR"
  19. 3046  PRINT : PRINT "       $5.00/SECTOR FOR SUBSCRIBERS."
  20. 3050  PRINT : PRINT : PRINT "   AN AD SHOULD BE IN THE FORM OF AN"
  21. 3060  PRINT : PRINT "EXECUTABLE PROGRAM ON A DISKETTE AND"
  22. 3070  PRINT : PRINT "EXIT BACK TO A PROGRAM NAMED ";: INVERSE : PRINT "AD.MENU";: NORMAL : PRINT "."
  23. 3999  GOTO 9999
  24. 9000  VTAB 23: HTAB 14: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN 
  25. 9999  GOSUB 9000: GOTO 20